home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / F / FilmPro.cpt / Clients / background_2762.txt < prev    next >
Encoding:
Text File  |  1988-04-17  |  11.9 KB  |  582 lines
  1. -- background: 2762 from stack: in
  2. -- bmap block id: 3083
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Master stack backgrd.
  6. ----- HyperTalk script -----
  7. on openstack
  8.   hide background field "hidden keywords"
  9.  
  10.  
  11. end openstack
  12.  
  13. on closestack
  14.   if the freesize of this stack > 0.15 * the size of this stack then
  15.     set cursor to 4
  16.     domenu "compact stack"
  17.   end if
  18. end closestack
  19.  
  20.  
  21.  
  22.  
  23. -- part 1 (button)
  24. -- low flags: 00
  25. -- high flags: 0000
  26. -- rect: left=253 top=25 right=58 bottom=297
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 1
  30. -- font id: 0
  31. -- text size: 12
  32. -- style flags: 0
  33. -- line height: 16
  34. -- part name: Keywords
  35. ----- HyperTalk script -----
  36. on mouseUp
  37.   play "harpsichord"
  38.   show background field "hidden keywords"
  39.   answer "New Keywords will replace old ones." with "Cancel" or "Okay"
  40.   if it is "okay" then
  41.     ask "Enter Keywords for Client"
  42.     put it into background field "hidden keywords"
  43.   end if
  44.   hide background field "hidden keywords"
  45.  
  46.  
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 2 (button)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=305 top=28 right=57 bottom=335
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 8538 / 8538
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: find
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   play harpsichord
  66.   domenu "find..."
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 3 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=345 top=26 right=57 bottom=380
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 20186 / 20186
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Sort
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   play "harpsichord"
  86.   answer "Sort all cards according to:" with "Contact" or  "Company" or "Cancel"
  87.   if it is "Contact"
  88.   then sort by last word of first line of bkgnd field 3
  89. else if it is "Company"
  90. then sort by first word of first line of bkgnd field 3
  91.  
  92.  
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 4 (button)
  98. -- low flags: 00
  99. -- high flags: 0003
  100. -- rect: left=429 top=31 right=55 bottom=458
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 10610 / 10610
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Dial
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   dial line one of background field 3 with modem "ATDT"
  112.   play "dialing tones"
  113.  
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 5 (button)
  119. -- low flags: 00
  120. -- high flags: 2000
  121. -- rect: left=245 top=309 right=332 bottom=271
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 1014 / 1014
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Prev
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   visual effect scroll right fast to black
  133.   visual effect scroll right fast
  134.   go to prev card
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 6 (button)
  140. -- low flags: 00
  141. -- high flags: 2000
  142. -- rect: left=277 top=309 right=332 bottom=302
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 1013 / 1013
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Next
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   visual effect scroll left fast to black
  154.   visual effect scroll left fast
  155.   go to next card
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 30 (button)
  161. -- low flags: 00
  162. -- high flags: 2000
  163. -- rect: left=389 top=25 right=60 bottom=420
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 1004 / 1004
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Letter
  172. ----- HyperTalk script -----
  173. on mouseup
  174.   get the loc of bkgnd field "follow up"
  175.   click at it
  176.   tabkey
  177.   domenu "copy text"
  178.   play harpsichord
  179.   ask "Which Word Processing Program?"
  180.   put it into wp
  181.   if it is not empty then
  182.     open wp
  183.   else if it is empty then
  184.     exit mouseup
  185.   end if
  186.  
  187. end mouseup
  188.  
  189.  
  190.  
  191. -- part 7 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=212 top=28 right=56 bottom=246
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 32462 / 32462
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Button Help 
  203. ----- HyperTalk script -----
  204.  
  205. on mouseup
  206.   push this card
  207.   set cursor to 4
  208.   visual effect barn door open
  209.   go to stack "FilmPro Help"
  210. end mouseup
  211.  
  212.  
  213.  
  214. -- part 9 (button)
  215. -- low flags: 00
  216. -- high flags: 0000
  217. -- rect: left=466 top=25 right=58 bottom=505
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 1007 / 1007
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Print
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   play harpsichord
  229.   answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  230.   if it is "This Card" then domenu "Print card"
  231.   else if it is "This Stack" then domenu "Print stack..."
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 11 (button)
  237. -- low flags: 00
  238. -- high flags: 2000
  239. -- rect: left=4 top=218 right=254 bottom=40
  240. -- title width / last selected line: 65535
  241. -- icon id / first selected line: -15743 / 49793
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Crews Stack Button
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   set cursor to 4
  251.   push this card
  252.   visual effect dissolve  to white
  253.   visual effect dissolve
  254.   go to stack crews
  255. end mouseUp
  256.  
  257.  
  258.  
  259. -- part 12 (button)
  260. -- low flags: 00
  261. -- high flags: 2000
  262. -- rect: left=0 top=259 right=294 bottom=43
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 9761 / 9761
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: Locations Stack Button
  271. ----- HyperTalk script -----
  272. on mouseUp
  273.   set cursor to 4
  274.   push card
  275.   visual effect dissolve  to white
  276.   visual effect dissolve
  277.   go to stack "Locations"
  278.  
  279. end mouseUp
  280.  
  281.  
  282.  
  283.  
  284. -- part 13 (button)
  285. -- low flags: 00
  286. -- high flags: 2000
  287. -- rect: left=1 top=61 right=98 bottom=43
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 2002 / 2002
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: Client Stack Button
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.   beep
  299.   answer "You are already in the Clients Stack"
  300. end mouseUp
  301.  
  302.  
  303.  
  304. -- part 14 (button)
  305. -- low flags: 00
  306. -- high flags: 2000
  307. -- rect: left=47 top=301 right=331 bottom=79
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 29114 / 29114
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: return
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   visual effect wipe left fast to black
  319.   visual effect wipe right fast
  320.   pop card
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 8 (button)
  326. -- low flags: 00
  327. -- high flags: 2000
  328. -- rect: left=0 top=24 right=57 bottom=43
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: FilmPro
  337. ----- HyperTalk script -----
  338. on mouseup
  339.   set cursor to 4
  340.   visual effect dissolve to white
  341.   visual effect dissolve
  342.   go to card id 2844 of stack "FilmPro "
  343. end mouseUp
  344.  
  345.  
  346.  
  347. -- part 15 (button)
  348. -- low flags: 00
  349. -- high flags: 2000
  350. -- rect: left=7 top=187 right=213 bottom=35
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: Production Notes
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   set cursor to 4
  362.   push this card
  363.   visual effect dissolve  to white
  364.   visual effect dissolve
  365.   go to last card in stack Memos
  366. end mouseUp
  367.  
  368.  
  369.  
  370. -- part 16 (button)
  371. -- low flags: 00
  372. -- high flags: 2000
  373. -- rect: left=4 top=145 right=182 bottom=41
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 18814 / 18814
  376. -- text alignment: 1
  377. -- font id: 0
  378. -- text size: 12
  379. -- style flags: 0
  380. -- line height: 16
  381. -- part name: Call Sheets
  382. ----- HyperTalk script -----
  383. on mouseUp
  384.   set cursor to 4
  385.   push this card
  386.   visual effect dissolve  to white
  387.   visual effect dissolve
  388.   go to last card in stack Call Sheets
  389.  
  390. end mouseUp
  391.  
  392.  
  393.  
  394. -- part 19 (button)
  395. -- low flags: 00
  396. -- high flags: 2000
  397. -- rect: left=1 top=109 right=138 bottom=40
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 1
  401. -- font id: 0
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: jobs stack button
  406. ----- HyperTalk script -----
  407. on mouseUp
  408.   set cursor to 4
  409.   push this card
  410.   visual effect dissolve  to white
  411.   visual effect dissolve
  412.   go to last card in stack Job File
  413. end mouseUp
  414.  
  415.  
  416.  
  417. -- part 20 (field)
  418. -- low flags: 80
  419. -- high flags: 0001
  420. -- rect: left=208 top=24 right=58 bottom=503
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 0
  424. -- font id: 3
  425. -- text size: 12
  426. -- style flags: 0
  427. -- line height: 16
  428. -- part name: hidden keywords
  429.  
  430.  
  431. -- part 22 (field)
  432. -- low flags: 00
  433. -- high flags: 6000
  434. -- rect: left=176 top=67 right=136 bottom=498
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 0
  438. -- font id: 3
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: Name and Address
  443.  
  444.  
  445. -- part 23 (field)
  446. -- low flags: 00
  447. -- high flags: 6000
  448. -- rect: left=177 top=134 right=154 bottom=498
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 0
  452. -- font id: 3
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 14
  456. -- part name: Phone
  457.  
  458.  
  459. -- part 24 (field)
  460. -- low flags: 00
  461. -- high flags: 6000
  462. -- rect: left=154 top=156 right=177 bottom=337
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 0 / 0
  465. -- text alignment: 0
  466. -- font id: 3
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 14
  470. -- part name: Receptionist
  471.  
  472.  
  473. -- part 32 (field)
  474. -- low flags: 00
  475. -- high flags: 4000
  476. -- rect: left=385 top=160 right=177 bottom=498
  477. -- title width / last selected line: 0
  478. -- icon id / first selected line: 0 / 0
  479. -- text alignment: 0
  480. -- font id: 3
  481. -- text size: 12
  482. -- style flags: 0
  483. -- line height: 14
  484. -- part name: Hours
  485.  
  486.  
  487. -- part 25 (field)
  488. -- low flags: 00
  489. -- high flags: 6000
  490. -- rect: left=140 top=172 right=192 bottom=498
  491. -- title width / last selected line: 0
  492. -- icon id / first selected line: 0 / 0
  493. -- text alignment: 0
  494. -- font id: 3
  495. -- text size: 12
  496. -- style flags: 0
  497. -- line height: 14
  498. -- part name: Principals
  499.  
  500.  
  501. -- part 26 (field)
  502. -- low flags: 00
  503. -- high flags: 6000
  504. -- rect: left=169 top=189 right=211 bottom=499
  505. -- title width / last selected line: 0
  506. -- icon id / first selected line: 0 / 0
  507. -- text alignment: 0
  508. -- font id: 3
  509. -- text size: 12
  510. -- style flags: 0
  511. -- line height: 14
  512. -- part name: Other Contacts
  513.  
  514.  
  515. -- part 27 (field)
  516. -- low flags: 00
  517. -- high flags: 6000
  518. -- rect: left=129 top=206 right=226 bottom=499
  519. -- title width / last selected line: 0
  520. -- icon id / first selected line: 0 / 0
  521. -- text alignment: 0
  522. -- font id: 3
  523. -- text size: 12
  524. -- style flags: 0
  525. -- line height: 14
  526. -- part name: Products
  527.  
  528.  
  529. -- part 28 (field)
  530. -- low flags: 00
  531. -- high flags: 6000
  532. -- rect: left=177 top=224 right=273 bottom=499
  533. -- title width / last selected line: 0
  534. -- icon id / first selected line: 0 / 0
  535. -- text alignment: 0
  536. -- font id: 3
  537. -- text size: 12
  538. -- style flags: 0
  539. -- line height: 14
  540. -- part name: Activity
  541.  
  542.  
  543. -- part 29 (field)
  544. -- low flags: 00
  545. -- high flags: 6000
  546. -- rect: left=139 top=273 right=308 bottom=499
  547. -- title width / last selected line: 0
  548. -- icon id / first selected line: 0 / 0
  549. -- text alignment: 0
  550. -- font id: 3
  551. -- text size: 12
  552. -- style flags: 0
  553. -- line height: 14
  554. -- part name: Follow Up
  555.  
  556.  
  557. -- part 31 (button)
  558. -- low flags: 00
  559. -- high flags: 2000
  560. -- rect: left=3 top=299 right=333 bottom=39
  561. -- title width / last selected line: 0
  562. -- icon id / first selected line: 17343 / 17343
  563. -- text alignment: 1
  564. -- font id: 0
  565. -- text size: 12
  566. -- style flags: 0
  567. -- line height: 16
  568. -- part name: Application
  569. ----- HyperTalk script -----
  570. on mouseUp
  571.   play harpsichord
  572.   ask "Which application would you like to open?"
  573.   if it is not empty then
  574.     suspend
  575.     open it
  576.   else if it is empty then
  577.     exit mouseup
  578.   end if
  579.  
  580. end mouseUp
  581.  
  582.